home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / earcd / music / omdpt123.lha / OMED_PT123.lzx / rexx / SwapTracks.omed < prev    next >
Text File  |  1979-12-27  |  1KB  |  56 lines
  1. /* Swap Tracks - Case 07-10-95 */
  2.  
  3. address OCTAMED_REXX
  4. options results
  5.  
  6. 'op_update off'
  7. 'ed_getcurrtrack var currtrack'
  8. 'ed_getnumtracks var numtracks'
  9.  
  10. 'wi_request "Swap with which track?" "0|1|2|3|4|5|6|7| CANCEL " var desttrack' 
  11. if desttrack = 0
  12. then do
  13.     'op_update on'
  14.     exit
  15. end
  16. else do
  17. desttrack = desttrack - 1
  18. if desttrack = currtrack
  19. then do
  20.     'wi_showstring' "That's the one you're on, man ...."
  21.     'op_update on'
  22.     exit
  23. end
  24. if desttrack > numtracks - 1
  25. then do
  26.     'wi_showstring "You gotta CREATE that track first."'
  27.     'op_update on'
  28.     exit
  29. end
  30. 'wi_request "In all blocks?" "Yes|No" var allblocks'
  31. if allblocks = 1 
  32. then do
  33.     'ed_getnumblocks var numblocks'
  34.     do until numblocks = 0
  35.         'ed_goto block' numblocks - 1
  36.         'rn_cut track'
  37.         'ed_goto track' desttrack
  38.         'rn_swap track'
  39.         'ed_goto track' currtrack
  40.         'rn_paste track'
  41.         numblocks = numblocks - 1
  42.     end
  43.     'op_update on'
  44.     'wi_showstring SWAPPED'
  45.     exit
  46. end
  47. else do
  48. 'rn_cut track'
  49. 'ed_goto track' desttrack
  50. 'rn_swap track'
  51. 'ed_goto track' currtrack
  52. 'rn_paste track'
  53. end
  54. 'op_update on'
  55. 'wi_showstring SWAPPED'
  56. exit